def 无类型 数值到文本(字符型A* str,整型 num)
	#嵌入代码
	sprintf_s(str,10, "%d", num);
	#嵌入代码_结束

def 无类型 测试_生成(cJSON类 &json)
	常量 字符型A* name[5] = {"Lis","JieKe","Rouse","ZhangSan","Wangwu"}
	json.置数值(A"Sys.Config.code",233)
	json.置数值(A"Sys.Config.double",223133.333567)
	json.置文本(A"Sys.Config.msg",A"cJson中英文测试")
	计次循环 整型 i=0;5
		字符型A path_f[255]=A"User["
		字符型A path[255]
		字符型A num[10]
		数值到文本(num,i)
		strcat_s(path_f,255,num)
		strcpy_s(path,255,path_f)
		strcat_s(path,255,A"].Id")
		//User[i].Id
		json.置数值(path,i)
		strcpy_s(path,255,path_f)
		strcat_s(path,255,A"].Name")
		//User[i].Name
		json.置文本(path,name[i])

def 无类型 测试_读取(cJSON类 &json)
	调试输出("Sys.Config.code: ",json.取数值(A"Sys.Config.code"))
	调试输出("Sys.Config.double: ",json.取数值(A"Sys.Config.double"))
	调试输出("Sys.Config.msg: ",json.取文本(A"Sys.Config.msg"))
	整型 index = 0
	动态数组<string> listobj
	
	index = json.枚举属性名(A"",listobj)
	调试输出(A"拥有  ",index,A" 个属性")
	计次循环 整型 i=0;index
		常量 字符型A* ltps
		#嵌入代码
		ltps=listobj[i].c_str();
		#嵌入代码_结束
		调试输出("         ",i,". ",ltps)
	index = json.取成员数(A"User")
	调试输出(A"User拥有成员 ",index)
	计次循环 整型 i=0;index
		字符型A path_f[255]=A"User["
		字符型A path[255]
		字符型A num[10]
		数值到文本(num,i)
		strcat_s(path_f,255,num)
		strcpy_s(path,255,path_f)
		strcat_s(path,255,A"].Id")
		//User[i].Id
		调试输出(path,": ", json.取数值(path))
		strcpy_s(path,255,path_f)
		strcat_s(path,255,A"].Name")
		//User[i].Name
		调试输出(path,": ",json.取文本(path))
	
def 整型 入口函数_窗口()   //窗口程序入口
	cJSON类 json
	json.创建()
	测试_生成(json)
	调试输出("生成测试:")
	调试输出(json.取Json文本(TRUE))
	调试输出("========")
	调试输出("读取测试:")
	测试_读取(json)
	返回 0
